'定义字典
Dim d As Object
Set d = CreateObject("Scripting.Dictionary")